Option Explicit
Sub L_Sample007()
    Dim mySht As Worksheet
    Dim myShp As Shape
    Set mySht = ActiveSheet                      'N
    On Error Resume Next
    mySht.Shapes("TestBtn").Delete
    On Error Resume Next
    'wmBjpsW
    Set myShp = mySht.Shapes.AddFormControl(xlButtonControl, 100, 100, 100, 100)
    With myShp
        .Name = "TestBtn"               		'W
        With .TextFrame.Characters
            .Text = "TEST007"           		'ܦr
            .Font.Size = 32             		'rjp
            .Font.ColorIndex = 3        		'rC
        End With
        .OnAction = "L_Sample007_1"     		'
    End With
    Set myShp = Nothing					'
    Set mySht = Nothing
End Sub

Sub L_Sample007_1()
    'n
    With ActiveSheet.Shapes(Application.Caller) _
        .TextFrame.Characters.Font
        If .ColorIndex = 3 Then
            .ColorIndex = 5				'ܧ᪺rC
        Else
            .ColorIndex = 3
        End If
    End With
End Sub
